home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagn_r.zip
/
NETWORK.SWG
/
0017_Using Novell?.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-01-27
|
509b
|
31 lines
{
> Is there a way to detect if a system is running under Novell Netware?
> There must be an interrupt to do that, but wich one?
}
Uses
Dos;
Function stationno : byte;
var
B : byte;
Regs : Registers;
begin
With Regs do
begin
ah := $DC;
ds := 0;
si := 0;
end;
MsDos( Regs ); {INT $21,ah=dh}
b := Regs.al;
stationno := b;
end;
{ Should return 0 if not attached to a novell server otherwise
workstation number }
begin
Writeln(StationNo);
end.